﻿Imports BUS
Imports DTO

Public Class MH_TimKiemHocSinh


    Private Sub rbtHoTen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtHoTen.CheckedChanged

        If (rbtHoTen.Checked) Then
            txtHoTen.Enabled = True
        Else
            txtHoTen.Enabled = False
        End If
        If rbtDiaChi.Checked Then
            txtDiaChi.Enabled = True
        Else
            txtDiaChi.Enabled = False
        End If

        If rbtLop.Checked Then
            cboLop.Enabled = True
        Else
            cboLop.Enabled = False
        End If
    End Sub

    Private Sub rbtLop_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtLop.CheckedChanged

        If rbtLop.Checked = True Then
            cboLop.Enabled = True
        Else
            cboLop.Enabled = False
        End If

    End Sub

    Private Sub rbtDiaChi_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtDiaChi.CheckedChanged
        If rbtDiaChi.Checked = True Then
            txtDiaChi.Enabled = True
        Else
            txtDiaChi.Enabled = False
        End If
    End Sub

    Private Sub MH_TimKiemHocSinh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Load danh sách học sinh
        Dim dsLop As New List(Of LopDTO)
        Dim lopBUS As New LopBUS
        dsLop = lopBUS.LayDanhSach()
        cboLop.DataSource = dsLop
        cboLop.DisplayMember = ("TenLop")
        cboLop.ValueMember = ("MaLop")
    End Sub

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub

    Private Sub btnTim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTim.Click
        Try
            Dim ds As New List(Of HocSinhDTO)
            If (rbtHoTen.Checked = True) Then
                'Kiểm tra dữ liệu nhập
                If (txtHoTen.Text.Trim() = "") Then
                    MessageBox.Show("Chưa nhập tên cần tìm.")
                    txtHoTen.Focus()
                Else
                    'Lấy danh sách học sinh theo tên học sinh
                    Dim hsBUS As New HocSinhBUS
                    ds = hsBUS.TimKiemTheoTen(txtHoTen.Text.Trim())
                End If
            End If
            If (rbtDiaChi.Checked = True) Then
                'Kiểm tra dữ liệu nhập
                If (txtDiaChi.Text.Trim() = "") Then
                    MessageBox.Show("Chưa nhập địa chỉ cần tìm.")
                    txtDiaChi.Focus()
                Else
                    'Lấy danh sách học sinh theo địa chỉ
                    Dim hsBUS As New HocSinhBUS
                    ds = hsBUS.TimKiemTheoDiaChi(txtDiaChi.Text.Trim())
                End If
            End If
            If (rbtLop.Checked = True) Then
                'Kiểm tra dữ liệu nhập
                If (cboLop.SelectedIndex = -1) Then
                    MessageBox.Show("Chưa nhập chọn lớp cần tìm.")
                    cboLop.Focus()
                Else
                    'Lấy danh sách học sinh theo mã lớp
                    Dim hsBUS As New HocSinhBUS
                    ds = hsBUS.TimKiemTheoLop(cboLop.SelectedValue)
                End If
            End If

            dgvDanhSach.DataSource = ds
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class